home *** CD-ROM | disk | FTP | other *** search
/ Aminet 39 / Aminet 39 (2000)(Schatztruhe)[!][Oct 2000].iso / Aminet / gfx / edit / PfPaint_V2.lha / PerfectPaint / rexx / circle / Total_Circle.rx < prev   
Encoding:
Text File  |  1999-12-09  |  1.2 KB  |  83 lines
  1. /* Script Rexx
  2.     Circle with a number of point*/
  3.  
  4.     call addlib("rexxmathlib.library", 5, -30, 0)
  5.  
  6.     options results
  7.   parse ARG Port x1 y1 r b
  8.  
  9.     ADDRESS COMMAND
  10.     s0=20
  11.     sens=0
  12.     if EXISTS('PerfectPaint:Prefs/Rexx_Prefs/Total_Circle') THEN DO
  13.         IF OPEN('lfile','PerfectPaint:Prefs/Rexx_Prefs/Total_Circle', "R") then DO
  14.             s0 = READLN('lfile')
  15.             sens = READLN('lfile')
  16.             CALL CLOSE('lfile')
  17.         END
  18.     END
  19.  
  20.  
  21.     Pi=3.1415926/180
  22.  
  23.     ADDRESS value Port
  24.     pp_DialogInit 250 85 "*Circle*" 2
  25.         pp_Integer 0 110 5 50 16 "Number*of*Point*" 1 s0
  26.         pp_Cycle 1 110 25 110 16 "Color*Option" 1 "Current*Color|Cycling*Color" sens
  27.     pp_Dialog
  28.     rc=result
  29.     if rc=0 then
  30.         do
  31.             EXIT
  32.         end        
  33.         
  34.     pp_GetDialog 0
  35.     s0=result
  36.  
  37.     pp_GetDialog 1
  38.     sens=result
  39.  
  40.     a=360/s0
  41.  
  42.     pp_GetApen
  43.     z=result
  44.  
  45.     pp_UpdateUndo    
  46.  
  47.     CALL SavePrefs('Total_Circle',s0,sens)
  48.     ADDRESS value Port    
  49.  
  50.   DO i=0 To 359 by a
  51.     x = Sin(i*Pi)*r+x1
  52.     y = Cos(i*Pi)*r+y1
  53.         pp_Plot x y
  54.         if sens=1 then DO
  55.             pp_SetApen z
  56.             z=z+1
  57.         END
  58.     END
  59.  
  60.  
  61. EXIT
  62.  
  63.  
  64. SavePrefs: PROCEDURE
  65.     
  66.     Prefname='PerfectPaint:Prefs/Rexx_Prefs/'||ARG(1)
  67.  
  68.     if EXISTS(Prefname) THEN DO
  69.         ADDRESS COMMAND
  70.         'delete >nil: '||Prefname
  71.     END
  72.  
  73.     IF OPEN('pfile',PrefName,'W') THEN DO
  74.  
  75.     do i=2 to ARG()
  76.         CALL WRITELN('pfile',ARG(i))
  77.     end
  78.  
  79.     CALL CLOSE('pfile')
  80.  
  81. RETURN
  82.  
  83.